home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / RIPOFF20.ZIP;1 / RIPOFF.SCR next >
Encoding:
Text File  |  1992-09-25  |  2.5 KB  |  55 lines
  1. ; RipOff, version 2.000
  2. ;
  3. ; Qmodem 5.01 script for adding taglines to messages written online,
  4. ; using Qmodem and the Tagline Express (TLX) program.
  5. ; Based on a similar script written by:
  6. ;  Written by Maurice Crouse, 29 March 1990.
  7. ;  Revision 0.02 written 2 April 1990.
  8. ;  Revision 0.03 written 12 April 1990.
  9. ;  Qmodem adaptation written 24 April 1990.
  10. ;
  11. ; See TLX documentation on how to use the offline taglines features.
  12. ; Setup TLX in QM\SCRIPT dir and run config using GENERIC mailreader option
  13. ; leave TLX.TAG as tagline file and create it as ascii with at least 1
  14. ; tagline in it.  You can use this file as your only tagline file and forego
  15. ; TLX's build a database feature.
  16.  
  17. string logo tear enter space tlxdir qmdir tagline  ;define variables
  18. assign logo " *RipOff_2.000* "       ;logo
  19. assign tear "---"                    ;"tear" line
  20. assign enter "^M"                    ;equate for Return
  21. assign space " "                     ;equate for space character
  22. assign tlxdir "c:\QM\SCRIPT"         ;put your TLX directory here
  23. assign qmdir "c:\qm"                 ;put your Qmodem directory here
  24. chdir $tlxdir                        ;change to TLX directory
  25. exist TLX.exe foundtlx               ;see if TLX is there,
  26. displayln "Can't run TLX."           ;if not, admit error.
  27. goto goterror
  28. foundtlx:
  29. dos "TLX -g c:\qm\script c:\qm\script\tlx.tag" ;run TLX NOTE ascii TLX.TAG
  30.                                                ;needed for .REP file
  31. exist TLX.TAG foundrep                      ;verify .REP file is there,
  32. displayln "Can't find the tagline file."    ;if not, admit error.
  33. goto goterror
  34. foundrep:
  35. openfile tlx.tag read                 ;open .REP file for reading
  36. readfile tagline                      ;copy tagline to variable
  37.                    ;at this point TLX will allow you to go to database, select
  38.                    ; or edit the tagline enter a new one or exit.
  39. closefile                             ;close .REP file
  40. chdir $qmdir                          ;change back to Qmodem directory
  41. send "$space"                         ;create a blank line
  42. send "$enter"
  43. send "$tear"                          ;send the "tear" line
  44. send "$enter"
  45. send "$logo"                          ;send the logo
  46. send "$tagline"                       ;send the tagline
  47. send "$enter"
  48. exit
  49. goterror:            ;if we end up here, an error was made
  50. closefile                                   ;close .REP file
  51. displayln "Sorry, can't add the tagline."   ;admit failure
  52. chdir $qmdir                          ;change back to Qmodem directory
  53. exit
  54. 
  55.